home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 096 / rbbsarcv.arc / RBBSARCV.PAT < prev   
Encoding:
Text File  |  1980-01-01  |  3.5 KB  |  103 lines
  1. '
  2. ' *****************************************************************************
  3. ' *                                                                           *
  4. ' *                         FILES MENU PROCESSING                             *
  5. ' *                                                                           *
  6. ' *****************************************************************************
  7. '
  8. 20015 AUTODOWNLOAD.IN.PROGRESS = FALSE' RESET AUTO-DOWNLOAD FLAG OFF
  9.       SUBROUTINE.PARAMETER = 1
  10.       CALL LINE25
  11.       ACTIVE.MENU$ = "F"
  12.       GOSUB 41050
  13.       NON.STOP = FALSE
  14.       IF NOT EXPERT.USER THEN _
  15.          FILE.NAME$ = MENU$(3) : _
  16.          GOSUB 43025
  17. 20030 A$ = GRN$ + " Files Function <A,D,G,H,L,N,Q,S,U,X,?>"          ' NEW
  18.       CALL SKIPLINE
  19.       GOSUB 12995
  20.       IF Q = 0 THEN _
  21.          GOTO 20015
  22. 20050 LIST.NEW = FALSE
  23.       CALL ALLCAPS (B$(1))
  24.       Z$ = B$(1)
  25.       FF = INSTR("ADGHLNQSUX?",Z$)                                   ' NEW
  26.       IF FF = 0 THEN _
  27.          J = 1 : _
  28.          GOSUB 1360 : _
  29.          GOTO 20015
  30.       IF USER.SECURITY.LEVEL < FILES.FUNCTION(FF) THEN _
  31.          VIOLATION$ = "File " + Z$ : _
  32.          GOSUB 1380 : _
  33.          GOTO 20015
  34. 20070 ON FF GOSUB 20071, _               ' A)rchive Verbose Listing    NEW
  35.                   20180, _               ' D)ownload a file
  36.                   20100, _               ' G)oodbye (log off)
  37.                   20110, _               ' H)elp (on line)
  38.                   20150, _               ' L)ist file directories
  39.                   53000, _               ' N)ew file search since given date
  40.                   20090, _               ' Q)uit and exit to message subsystem
  41.                   52900, _               ' S)earch directories for a string
  42.                   20400, _               ' U)pload a file
  43.                   4240, _                ' X)Expert mode toggle on/off
  44.                   20130                  ' ?)File transfer information
  45.       GOTO 20015
  46. '
  47. ' * --> The A)rchive Verbose Listing (on-line) routine is as follows :
  48. '
  49. ' *****************************************************************************
  50. ' *  A - COMMAND FROM FILES MENU (ARCHIVE VERBOSE LISTING)                    *
  51. ' *****************************************************************************
  52. '
  53. 20071 IF Q > 1 THEN _
  54.          B = 2 : _
  55.          GOTO 20073
  56. 20072 A$ = "List which ARC'ed file (eg. RBBS-PC) "
  57.       GOSUB 12995
  58.       B = 1
  59.       IF Q = 0 THEN _
  60.          RETURN
  61. 20073 Z$ = B$(B)
  62.       VIOLATION$ = "ARC-List "
  63. 20074 FOR SUBDIR.INDEX = START.DRIVE TO SUBDIR.COUNT
  64.          CALL BADFILE
  65.          ON BAD.FILE.NAME.INDEX GOTO 20075,20080,20086
  66. 20075    OK = FALSE : _
  67.          FILE.NAME$ = FILE.NAME$ + ".ARC"
  68. 20076    CALL FINDIT
  69. 20077    IF OK THEN _
  70.             GOTO 20082
  71. 20078 NEXT
  72. 20080 Z$ = B$(B) + ".ARC not found!"
  73.       SUBROUTINE.PARAMETER = 2
  74.       CALL UPDTCALR
  75.       A$ = Z$ + " Type correct filename ([ENTER] quits)"
  76.       GOSUB 12995
  77.       IF Q = 0 THEN _
  78.          RETURN
  79.       B = 1
  80.       GOTO 20073
  81. 20082 Z$ = "ARC-Listed " + B$(B) + ".ARC"
  82.       SUBROUTINE.PARAMETER = 1
  83.       CALL UPDTCALR
  84.       SHELL "ARCV " + FILE.NAME$ + " > TEMP"
  85.       FILE.NAME$ = "TEMP"
  86.       GOSUB 6000
  87. 20084 RETURN
  88. 20086 GOSUB 1380
  89.       GOTO 20084
  90. '
  91. ' End of A)rchive Verbose Listing routine for RBBS 14.1-series
  92. ' 
  93. ' Ken Ong
  94. ' The CENTER, Singapore
  95. ' Data : (65) 737-4090
  96. ' 300/1200/2400
  97. '
  98.  
  99. se Listing routine for RBBS 14.1-series
  100. ' 
  101. ' Ken Ong
  102. ' The CENTER, Singapore
  103. ' Data : (65)